TCustomForm, Cut, Copy, Paste

Otázka od: Daniel Dedek

27. 12. 2002 17:11

Ahoj,

nevite nekdo proc nefunguje Copy, Cut, Paste ap. na dynamicky vytvorenem
formulari (odvozenem od TCustomForm) v pripade, ze do menu k jednotlivym
TMenuItem priradim standardni actions (TEditCut, TEditCopy atd.)? Dokud
nepriradim do menu ty standardni actions, je vse normalni. Stejne tak vse
funguje, kdyz je dynam. vytvarenej form odvozenej od TForm.

Mam toto (nova Unit):

type TTestForm = class(TCustomForm)
  private
    Memo: TMemo;
  public
    constructor Create(AOwner: TComponent);override;
  end;

a

constructor TTestForm.Create(AOwner: TComponent);
begin
  CreateNew(AOwner, 0);
  Memo.Create(Self);
  Memo.Parent := Self;
end;

nekde v hlavnim formu je:

var F: TTestForm;
begin
  F := TTestForm.Create(Application);
  F.Show;
end;

pak na hlavni form nahazim ActionList, do nej standardni akce (TEditCut,
TEditCopy atd.) a dal prihodim na formular MainMenu. Jakmile ale propojim do
MenuItem akci, treba EditCopy1, prestane mi ten vytvorenej TestForm reagovat
na Copy (nefunguje proste Ctrl+C). A to plati pro vsechny standardni akce.
Zajimavy je, ze kdyz je TTestForm odvozenej od TForm (misto od TCustomForm),
je vsechno OK.

Trapim se s tim uz tri dny, nepotkal jste to uz prosim nekdo?

Diky, Dan Dedek